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-- File: Strings. Mesa Edited by Sandman on May 12, 1978 3:13 PM 

DIRECTORY 

InlineDefs: FROM " in! inedef s" USING [BITAND, BITOR, DIVMOD], 
Mopcodes: FROM M mopcodes ,, USING [zKFCB, zPOP], 
SDDefs: FROM "sddefs" USING [sLongDi vMod] , 
StringDefs: FROM "s tringdef s" USING [ 

bcplMaxLength, bcplSTRING, bcplStringHeaderSize, CharsPerWord , 

StringHeaderSize, Substring]; 

DEFINITIONS FROM StringDefs; 

Strings: PROGRAM EXPORTS StringDefs SHARES StringDefs ■ PUBLIC 
BEGIN 

WordsForString: PROCEDURE [nchars: CARDINAL] RETURNS [CARDINAL] ■ 
BEGIN 

RETURN [StringHeaderSize + (nchars+(CharsPerWord-l))/CharsPerWord] 
END; 

StringBoundsFault: SIGNAL [s: STRING] RETURNS [ns: STRING] - CODE; 

AppendChar: PROCEDURE [s: STRING, c: CHARACTER] - 
BEGIN 
UNTIL s. length < s.maxlength DO 

s <- SIGNAL StringBoundsFau1t[s]; 

ENDLOOP; 
s[s. length] «- c; s, length <- s.length+1; 
RETURN 
END; 

AppendString: PROCEDURE [to, from: STRING] * 
BEGIN 

i, j, n: CARDINAL; 
WHILE from. length + to. length > to.maxlength DO 

to <- SIGNAL StringBoundsFault[to]; 

ENDLOOP; 
n <- MIN [from. length, LOOPHOLE[to.maxlength-to. length, CARDINAL]]; 
i «- to. length; j <- 0; 
WHILE j < n 

DO 

to[i] «- from[j]; 

i <- i + 1; j 4- j+1; 

ENDLOOP; 
to. length <- i; 
RETURN 
END; 

EqualString, EqualStrings : PROCEDURE [si, s2: STRING] RETURNS [BOOLEAN] - 
BEGIN 

i: CARDINAL; 

IF si. length # s2. length THEN RETURN [FALSE]; 
FOR i IN [0. .si. length) 

DO 

IF sl[i] # s2[i] THEN RETURN [FALSE]; 

ENDLOOP; 
RETURN [TRUE] 
END; 

EquivalentString, Equivalen tStrings : PROCEDURE [si, s2: STRING] RETURNS [BOOLEAN] * 
BEGIN 

OPEN InlineDefs; 
i: CARDINAL; 
casebit: WORD - 40B; 

IF si. length # s2. length THEN RETURN [FALSE]; 
FOR i IN [0. .si. length) 

DO 

IF BITOR[LOOPHOLE[sl[i]], casebit] // BITOR[LOOPHOLE[s2[i]] , casebit] 
THEN RE1URN [FALSE]; 

ENDLOOP; 
RETURN [TRUE] 
END; 

AppendSubString: PROCEDURE [to: STRING, from: Substring] - 
BEGIN 
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i, j, n: CARDINAL; 

WHILE from. length + to. length > to.maxlength DO 

to «- SIGNAL StringBoundsFau1t[to]; 

ENDLOOP; 
n «- MIN [from. length, LOOPHOLE[to.maxlength-to. length, CARDINAL]]; 
i <- to. length; j <- from. offset; 
WHILE n > 

DO 

to[i] <- f rom.base[j]; 

i <- 1+1; j <- j+1; n <- n-1; 

ENDLOOP; 
to. length «- i; 
RETURN 
END; 

EqualSubString, EqualSubStrings: PROCEDURE [si, s2: Substring] RETURNS [BOOLEAN] ■ 
BEGIN 

11, i2, n: CARDINAL; 
bl, b2: STRING; 
IF si. length tt s2. length 

THEN RETURN [FALSE]; 
bl <- si. base; il <- si. offset; 
b2 «- s2.base; i2 <- s2. offset; 
FOR n ♦■ si. length, n-1 WHILE n > 

DO 

IF bl[il] # b2[i2] THEN RETURN [FALSE]; 

il <- il+1; i2 <- i2+l; 

ENDLOOP; 
RETURN [TRUE] 
END; 

EquivalentSubString, EquivalentSubStrings : PROCEDURE [si, s2: Substring] RETURNS [BOOLEAN] 
BEGIN 

OPEN InlineDefs; 
casebit: WORD = 40B; 
il, i2, n: CARDINAL; 
bl, b2: STRING; 

IF si. length § s2. length THEN RETURN [FALSE]; 
bl «- si. base; il «- si. offset; 
b2 <- s2.base; 12 <- s2. offset; 
FOR n <- si. length, n-1 WHILE n > 

DO 

IF BITOR[LOOPHOLE[bl[il]], casebit] # BITOR[LOOPHOLE[b2[i2]] , casebit] 
THEN RETURN [FALSE]; 

il <- il+1; i2 ♦- i2+l; 

ENDLOOP; 
RETURN [TRUE] 
END; 

DeleteSubString: PROCEDURE [s: Substring] « 
BEGIN 

b: STRING = s.base; 
i: CARDINAL «- s. offset; 
j: CARDINAL *- i + s. length; 
WHILE j < b. length 

DO 

b[1] <" b[j]; 

i <- i + 1; j <r j + 1; 

ENDLOOP; 
b. length «- i; 
RETURN 
END; 

-- routines for bcpl strings 

WordsForBcplString: PROCEDURE [nchars .-CARDINAL] RETURNS [CARDINAL] « 
BEGIN RETURN[bcplStringHeaderSize+nchars/CharsPerWord] END; 

bcplStringOverflow: SIGNAL ■ CODE; 

MesaToBcplString: PROCEDURE[s:STRING, t:POINTER TO bcplSTRING] - 
BEGIN 

i: CARDINAL; 

FOR i IN [0. .(t. length «- MIN[s . length .bcplMaxLength]) ) DO 
t.char[i] ♦- s[i]; 
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ENDLOOP; 
IF s. length > bcplMaxLength THEN SIGNAL bcplStringOver flow; 
END; 

mesaStringOverflow: SIGNAL ■ CODE; 

BcplToMesaString: PROCEDURE[t .-POINTER TO bcplSTRING, s:STRING] 
BEGIN 

i: CARDINAL; 
FOR i IN [0..(s. length <- MIN[t. length, s.maxlength])) DO 

s[i] «- t.char[i]; 

ENDLOOP; 
IF t. length > s.maxlength THEN SIGNAL mesaStringOverflow; 
END; 



Overflow: SIGNAL - CODE; 
InvalidNumber: SIGNAL ■ CODE; 
NUL: CHARACTER ■ 0C; 
Space: CHARACTER - » ; 

StringToNumber: PROCEDURE [s: STRING, radix: CARDINAL] 
RETURNS [v:UNSPECIFIED] ■ 
BEGIN OPEN InlineDefs; 
char: CHARACTER; 
cp: CARDINAL «- 0; 
v8, vlO: CARDINAL *• 0; 
neg: BOOLEAN <- FALSE; 
getchar: PROCEDURE - 

BEGIN 

char <- s[cp]; 

IF (cp <- cp+1) > s. length THEN char *- NUL; 

END; 

getchar[] ; 

WHILE char <- Space DO 

IF char ■ NUL THEN SIGNAL InvalidNumber; 

getchar[]; 

ENDLOOP; 
IF char - '- THEN 

BEGIN neg «- TRUE; getchar[] END; 
WHILE char IN [ f 0..'9] DO 

vlO «- vl0*10 + (char-'O); 

v8 <- v8*8 + (char-'O); 

getchar[]; 

ENDLOOP; 

BEGIN 

SELECT LOOPHOLE[BITAND[LOOPHOLE[char],137B], CHARACTER] FROM 

NUL => GOTO noexponent; 

'B => BEGIN v <- v8; radix *■ 8; END; 

•D => BEGIN v *- vlO; radix <- 10; END; 

ENDCASE => GOTO noexponent; 
getchar[]; vlO *- 0; 
WHILE char IN [ f 0. . '9] DO 

vlO <- vl0*10 + char-'O; 

getchar[]; 

ENDLOOP; 
THROUGH [1 .. vlO] DO v <- v*radix ENDLOOP; 
EXITS 

noexponent ■> v <- IF radix ■ 8 THEN v8 ELSE vlO; 
END; 

IF char # NUL THEN SIGNAL InvalidNumber; 

IF neg THEN RETURN[-v]; 

END; 

StringToDecimal: PROCEDURE [s: STRING] RETURNS [INTEGER] - 
BEGIN 

RETURN[StringToNumber[s,10]] 
END; 

StringToOctal: PROCEDURE [s: STRING] RETURNS [UNSPECIFIED] » 
BEGIN 

RETURN[StringToNumber[s,8]]; 
END; 
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AppendNumber: PROCEDURE [s: STRING, n: CARDINAL, radix: CARDINAL] - 
BEGIN 
xn: PROCEDURE [n: CARDINAL] ■ 

BEGIN 

r: CARDINAL; 

[n,r] <- InlineDefs.DIVMOD[n, radix]; 

IF n # THEN xn[n]; 

IF r>9 THEN r *- r + "A-'O-IO; 

AppendChar[s, r+'O]; 

END; 
xn[n]; 
END; 

AppendDecimal: PROCEDURE [s: STRING, n: INTEGER] ■ 
BEGIN 
IF n<0 THEN 

BEGIN AppendChar[s, '-]; n <- -n END; 
AppendNumber [s,n, 10]; 
END; 

AppendOctal: PROCEDURE [s: STRING, n: UNSPECIFIED] » 
BEGIN 

AppendNumber[s ,n,8]; 
AppendChar[s, 'B] ; 
END; 

AppendLongNumber: PROCEDURE [s: STRING, n: LONG INTEGER, radix: CARDINAL] ■ 
BEGIN OPEN Mopcodes; 
DivMod: PROCEDURE [n,d: LONG INTEGER] 

RETURNS [q: LONG INTEGER, r: INTEGER] « 

MACHINE CODE 

BEGIN zKFCB, SDDef s . sLongDi vMod ; zPOP END; 
xn: PROCEDURE [n: LONG INTEGER] - 

BEGIN 

r: INTEGER; 

[n,r] <- DivMod[n, radix]; 

IF n # THEN xn[n]; 

IF r>9 THEN r <- r + 'A-'0-10; 

AppendChar[s, r+'O]; 

END; 
IF n < THEN BEGIN AppendChar[s , ' -] ; n ♦- -n END; 
xn[n]; 
END; 

StringToLongNumber: PROCEDURE [s: STRING, radix: CARDINAL] 
RETURNS [v: LONG INTEGER] - 
BEGIN OPEN InlineDefs; 
char: CHARACTER; 
cp: CARDINAL <- 0; 
exp: CARDINAL; 
v8, vlO: LONG INTEGER <- 0; 
neg: BOOLEAN «- FALSE; 
getchar: PROCEDURE ■ 

BEGIN 

char <- s[cp]; 

IF (cp <- cp+1) > s. length THEN char <- NUL; 

END; 

getchar[]; 

WHILE char <= Space DO 

IF char - NUL THEN SIGNAL Inval idNumber; 

getchar[]; 

ENDLOOP; 
IF char = '- THEN 

BEGIN neg *- TRUE; getchar[] END; 
WHILE char IN ['0. . '9] DO 

vlO «- vl0*10 + CARDINAL[char-'0]; 

v8 ♦■ v8*8 + CARDINAL[char- f O]; 

getchar[]; 

ENDLOOP; 

BEGIN 

SELECT LOOPHOLE[BITAND[LOOPHOLE[char],137B], CHARACTER] FROM 

NUL ■> GOTO noexponent; 

•B «> BEGIN v *- v8; radix <- 8; END; 
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•D -> BEGIN v <- vlO; radix «- 10; END; 

ENDCASE => GOTO noexponent; 
getchar[] ; exp «- ; 
WHILE char IN [•().. '9] DO 

exp «- exp*10 + char-'O; 

getchar[] ; 

ENDLOOP; 
THROUGH [1 .. exp] DO v «- v*radix ENDLOOP; 
EXITS 

noexponent »> v *- IF radix » 8 THEN v8 ELSE vlO; 
END; 

IF char # NUL THEN SIGNAL Inval idNumber ; 

IF neg THEN RETURN[-v]; 

END; 

END. 



